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f 

\ 

N EW 


10 C L S 


20 INPUT" 

■^-■7x/\?l_i" ; A $ 

30 PRINT 

A $ 

4 0 END 


RUN 


-^- 7 i/\? /\-#-a 


/\t -3 


READY 


n 


Vs 

) 
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end, stop 


END 

STOPti, 7'p^7AOj5it;h.^lhi5t-to 

CONT 

STOP^fc-^. BREAK=^"-t'4'®f^tL*:7'p^7A^MH-TS|fTLfcC'<i: -to 

10 X=X+ 1 
20 PRINT X 
30 GOTO 10 

C€»yp^'9 A^RUN I BREAK | 

Break in 20 

CONT 

iK’CSO'y'p ^9 A;5»ifi o/ci 
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FOR ~ TO, NEXT, STEP 

1 0 
2 0 

3 0 

4 0 

5 0 

FOR~TOti, NEXT i— COy‘^ NiS^O A 


C L S 

FOR N=0 
PRINT N 
NEXT N 
END 


TO 9 


10 0 < '?MLi-tc 


Ib9t •Cl'O-f'oJtx. t -to 
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10 C L S 

20 FOR N=0 TO 20 STEP 2 
30 PRINT N : 

40 NEXT N 
5 0 END 
RUN 

0 2 4 6 8 10 12 14 16 18 20 

STEP 2 LfcOtr, 0 ~2 0 ^ 2-:5oit Ltl'S-r,, 

STEP«t, - ( fT#-^20^1^iEL-C^t Lj; 5„ 


2 0 FOR 

N 

= 2 0 

TO 

0 

S T E P - 

-2 

RUN 

2 0 18 1 

6 

1 4 

1 2 

1 0 

8 6 

4 2 0 


2 0^^ib, 2 oo'o/i;'/! 0 4 Lfctao r €> I 5 r— 

FOR ~ NEXT iCft, 
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1 0 

2 0 

C L S 

FOR A 

= 1 

T 0 




9 


A 

3 0 

FOR B 

= 1 

T 0 

9 

B 

CD 

4 0 

PRINT 

A*B ; 


O 


5 0 

NEXT 

B 



hi' 

1 

y 

6 0 

PRINT 




1 

7 0 

NEXT 

A 






FOR ~ NEXT " i 1^' 4 *tTr " 


FOR 1=1 TO N 


1 0 

C L S 




2 0 

FOR N 

= 

1 

TO 

3 0 

FOR M 

= 

1 

TO 

4 0 

PRINT 

II 


f 

5 0 

NEXT 

M 



6 0 

PRINT 




7 0 

NEXT 

N 




M 

N IE 

(D 

<0 L 



/U 

/U ® 

1 

I l' 

y’ 



- 49 - 




F0RN=1 TO 20 
F O RM= 1 TO 10 
NEXT N 
NEXT M 

FOR, 


IE 

L 

< ^ 
tc C' 


IF~THEN. GOSUB 




1 0 

C L S 



2 0 

INPUT" h<7^> " ; A 



3 0 

IF A>=65 THEN 

GOSUB 

1 0 0 

4 0 

IF A<65 THEN 

GOSUB 

2 0 0 
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50 GOTO 20 

10 0 PRINT" " 

110 RETURN 
2 0 0 PRINT" " 

210 RETURN 

lF~THENti, Ati, INPUT 

IF^CT?N2lJ»f L-C^ix^^A-Cfc- t-to 

65 GOSUBS;-CfT#-^100 
?T#^200i'Cfjtt-to 

(%L) {fLhkt) in-oXi^brnK) (^T#^) 

IF A>=65 THEN GOSUB 100 

IF~THENO^fClt, 


(«BSt±S*^) 


F~T H E N 

GOTO 


F~T H E N 

GOSUB 

1 O' t i-o ) 

F~T H E N 

PRINT 

" X X X " g®i’Ctil:^JLS'fo 

F~T H E N 

END 

(, y" p y ■i'^T ) 

F~T H E N 

STOP 

( y P ^7 A||fT 4 ^lh ) 

F~T H E N 

BEEP 
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le^ 

§ 

it 

» 

= 

# LI/ ' ( True tsih— 1 , False tah 0 ) 

<> 

# < ;^£'' ' ( True ts:h— 1 , False t£.h 0 ) 

> 

# V ' ( True tsih— 1 , False ts:h 0 ) 

< 

<]'> $ 1 ' ( True tnh— 1 , False lb 0 ) 

> = 

lU -h ( True lb — 1 , False lb 0 ) 

< = 

U T ( True fSih- 1 , False ib 0 ) 

1^ 

s 

m 

n 

NOT 


AND 


OR 

mmm 

XOR 
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GOSUB, RETURN 


fjOT'p ^7 GOSUB:fc;i»* *3 f Lfco 

GOTO^tO^-a-tt, GOSUB^Ctt RETURN 

{gisix, RETURN iXt? GOSUB 35:€>^OfTi'-Mo-r*ti-o 


2 0 

3 0 

4 0 

5 0 

1 0 0 
1 1 0 
2 0 0 
2 1 0 


INPUT A 
IF A>=65 THEN 
IF A<65 THEN 
GOTO 20 
PRINT" :d^-h'7 " 
RETURN 

PRINT" " 

RETURN 


GOSUB 100 
GOSUB 200 -1 





GOSUB:5;^^5B#f-, RETURN i < /£ 0 t-fo 

RETURN GOSUB ^ p 9 AtijtfrL t-tOt', fT#-^50<OJ;5 

9-p^9AdK < fij ?. J; 5 y ^ ^ - V^r¥<y t-fo 

^ixht^ SKixiai t'aiiixt-fo 
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-3 t *) ¥iJ 0 t -fo 
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ON GOTO 


ON GOTOd'*?) t-to 

ON A GOTO 100,200,300 

1 ^T ##100 

2 OB#. fT #^200 

GOTO 

T0 7’p A-c-tt. Ati 1 ~ 3 4-t:'OfI^A^7L-C 


1 0 

INPUT" 

" ; A 

20 

ON A GOTO 100,200,300 

1 0 0 

PRINT 

" zi — t— " .'GOTO 10 

2 0 0 

PRINT 

" #■— + " : G 0 T 0 10 

3 0 0 

PRINT 

" 5 " : G 0 T 0 10 

( a P V ) 


Ifrocf^fc. 2'OJ;;l±o^^3fc^Aix^W»ffi*t-to ( h > v h ) 

fT 04 'f- 2-oa±Aix^m^iit^ • ( => p v ) 
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RUN |C R I 

a— t:— 

*r-^ 
l)l'7 
READY 

ON GOSUBt, 

CURSOR 

4fc% RUN Lfc^, iK4r, aBiOi'Ofitafctti-tds 7"p 

^ 7 A ±-ejgS 0 4 -to 

CURSOR icfi. 



IbreakI 
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{ X = 0 , y = 0 ) 


0 12 3 18 


12 


23 


37 

























(x = 37, 3^=0) 
h 


'(x=37, y=23) 


(x = 0, y=23) 

y P i/9 38^^ X 24<D 9120 - 7 ;^ 


CURSOR 18,12 :PRINT''A" 
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^97^ .,,9 IISt? cursor 5 

(x=0, y-0) j ^25 


255 (x=255, :y = 0) 


95 - 


191 


10 SCREEN 2,2: CLS 
20 CURSOR 125, 95: PRINT " A" 


(x=255, >-=191) 


(x = 0, >-=191) 

X 0—255 (256 K-yl) 

>- 0-191 ( 192 K-y h ) 


CURSOR t <1 ^-fo 
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ON GOSUB 


1 0 

C L S 








2 0 

CURSOR 

1 

0 , 

3 

: P R 

1 N T 



3 0 

CURSOR 

1 

0 , 

6 

: P R 

1 N T 

1, 1 

. . . " 

4 0 

CURSOR 

1 

0 , 

8 

: P R 

1 N T 

'' 2 

. . . " 

5 0 

CURSOR 

1 

0 , 

1 

0 : P R 1 N T " 

3 . . . 9 ^- h " 

6 0 

CURSOR 

1 

0 , 

1 

3 : 1 

N P U T " 

" ; A 

7 0 

ON A GOSUB 


1 0 0 

,200, 

3 0 0 

8 0 

GOTO 60 







fir L ^ -f 0 

1 0 0 

CURSOR 


1 0 


1 6 : 

P R 1 

N T 

It II 

1 1 0 

CURSOR 


1 0 


1 6 : 

P R 1 

N T 

" 3— fc:— . . .¥3 00 " 

1 2 0 

RETURN 








2 0 0 

CURSOR 


1 0 


1 6 : 

P R 1 

N T 

« n 

2 1 0 

CURSOR 


1 0 


1 6 : 

P R 1 

N T 

" + ... ¥200" 

2 2 0 

RETURN 








3 0 0 

CURSOR 


1 0 


1 6 : 

P R 1 

N T 

II tl 

3 1 0 

CURSOR 


1 0 


1 6 : 

P R 1 

N T 

¥250" 

3 2 0 

RETURN 
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GOTO CURSOR 

GOSUB^{gl'^-tO-t:\ RETURN tiigix-f ^-AixTT^'.'c. 


READ, DATA, RESTORE 

:/p^7*9 AOtffc, DATA READ 

10 READ A,B,C,D 
20 PRINT A+B+C+D 
100 DATA 1,2, 3, 4 
RUN 
1 0 

READY 

DATA LM L t Lfc^ 

DATAfi. 

yp ^'9 READ:S;fc[JBS)5 t> DATA:S:}6‘i*Ci'-*o-t4. :5fel’CigA5(0 

4 -to 
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10 READ A$,B$ 

20 PRINT A$+B 
30 DATA S,E 

40 PRINT 

50 DATA G 

60 DATA A 

RUN 
SEGA 


READY 

DATAfJii[^^^A;}xt%, 

DATA OiSli, READlfcO^i^COiCti, |WIir-t"7i(ttLtiA£ *9 t 
DATAfCd^. READX<^m^&f^<dL7!}^> DATA ■tirAo 

READ^<DmWl.i’^. DATA i >) t-to 

1^ C DATA R ESTO R E ' t -f o 


, C $ , D $ 

$ +C $ +D $ 


1 
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restore 


10 READ A,B,C,D 

20 DATA 1,2, 3, 4 

30 RESTORE 

40 READ E - 1 

50 PRINT A+B+C+D+E 
RUN 
1 1 

D I M ( sa?!) ) 

DATAr^L-C. A, B, C, D r - t. 

W&yk: — 

DIM A { 5 ) — * .J, 

A(0),A(1 ),A(2),A(3),A(4),A(5) 

6 y Lfc*r7i ») 
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Sic % sa?iJM)6‘ tB* t -t, 


10 C L S 

20 DIM A$(5),B(5) 

30 FOR 1=0 TO 5 
40 READ A$(I),B(I) 

50 PRINT A$(I),B(I) 

6 0 PRINT fr. 

7 0 N E XT I 

100 DATA a— K— , 3 0 0 , S , 1 5 0 , ^ , 2 0 0 

110 DATA T-f — ,280, h— IX I* , 1 8 0 , y\°> ,10 0 

DIMA $ (5) t LfcOf'C, READ5;-C'A$ (1) FOR I =0 TO 5 

I-C-to -e-td'fj, Id'Od'ib DATA^fc^i0,^-el't-to 

READ^Ct'ti, A$ t DATA ti, 

DATA 

DIMA (5, 5) iDX^K.. * -y n 2 -fo 
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A:h.<oM 


10 C L S 
20 DIM A 
30 FOR J 
40 FOR K 
50 A ( J , K 
60 PRINT 
70 NEXT 
80 PRINT 
90 NEXT 
RUN 


1 

2 

3 

2 

4 

6 

3 

6 

9 

4 

8 

1 2 

5 

1 0 

1 5 

6 

1 2 

1 8 

7 

1 4 

2 1 

8 

1 6 

2 4 

9 

1 8 

2 7 


, 9 ) 

TO 9 
TO 9 
J * K 

( J , K ) ; 


5 

6 

7 

1 0 

1 2 

1 4 

1 5 

1 8 

2 1 

2 0 

2 4 

2 8 

2 5 

3 0 

3 5 

3 0 

3 6 

4 2 

3 5 

4 2 

4 9 

4 0 

4 8 

5 6 

4 5 

5 4 

6 3 
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( 9 

= 1 

= 1 

) = 

A 

K 

J 

4 

8 

1 2 

1 6 

2 0 

2 4 

2 8 

3 2 

3 6 


8 

9 

1 6 

1 8 

2 4 

2 7 

3 2 

3 6 

4 0 

4 5 

4 8 

5 4 

5 6 

6 3 

6 4 

7 2 

7 2 

8 1 


DIM A ( 5 , 5 , 5 ) 


D I M35:t?ge?iMwL7ii'«'g-ti, lO -C-fo 
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ERASE 


100 ERASE i Lt-f i 7"p ;/9 !? f-to 

100 ERASE A,B$ t ^ L 

4 -to 

DELETE(y-'';-b) 

7- p ^/9 t-To 

I |IZ^I — I 

DELETE 180-220 |C R | i ( p w ) -et fx#^ 1 8 0 - 
2 2 0 4-t'^®lO?BL4-to 

DELETE -2 5 0 lb, 2 5 0 4 -COy p 9 L ti" c 

DELETE 600- frS-^ 600 L4-to 

DELETE 100 frit# 1 00 

444?, BASIC OlSZO—gB^ffio 4:*4 Lfco 

9’p^9A^fF;5#4, i£i'P>-ffT#^^A4L4-to ») 4-to 
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AUTO ( b ) 


AUTO IC R I i> 

1 0 Ic R I 

2 0 

AUTO 100 |C R I 

1 0 0 |C R I 
1 1 0 

lOOSd^lb, 10 LA:^ao 

AUTO , 1 0 , 2 0 |c R I 

1 0 |c R I 

3 0 |C R I 
5 0 

|C R I 20 
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n> 


RENUM ( y ) 


7 

RENUM I C R I 
y p ^7 10 , 20 , 30 

RENUM 100 fF^ 

fTlt-^100 ;4^lb, 10 

RENUM 300 , 200 

I I 

fT#-i-200;S^bcDy p i/5 fT#^300d'ib 1 0 -to 

RENUM 300 , 200 , 50 

frS-i- 300^^6 50 t$'AfCLt-to 
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SAVE, LOAD, VERIFY 
SAVE 


A, ;*-fe F r--7”i'CHa^L't;a<#:i'ttl5fe 

ti'o 

y a ^ 9 A^Dig|^J^A^^^o 

[cT 

*-b -y h 

7°p 9'9 A(DF^§;i!i*>fl;?)iStu^ftH"t:T^'''o ( 7 r ^ /i^^- A ) 
i6^?]Urt-C#H"tT^'^'o 

A-fey b y-' y =^^^4, ^D^^'^(D%co^io{£L'T^b'o 

*-fe.y br :* 9 V'i» ;* 9 -t ,;, b t- 7^0 

9 -</H'C|5A L-Cfcb'-CT? ^ V 


S A V E " X X X X " 
Saving -Start 

Saving, End. 
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VERIFY 


SAVE ^ a: -y L 4 "fo 

VERIFY ICRl tXtSl^X^ 7° i^-l' 4?^ V^ff L'CT^'-'o 
iEL<, S A V E V E R I F Y OK 

S A V EftilL-tT?tv 


LOAD 

-b .y h r- 7 ’ p 7 ' 9 A- 7 -'-^^=ivtii-^ t-fo 

>» , - ,~ 7 p 7” 7 

L 0 A D " X X X " |C R I 

Loading Start t' U"f ;J?7 
Found " X X X " 

Loading End -b -y I- 

SAVE , LOAD#tt, -b*"|i€)T-7 UP - K^fc{£t'T?'^'c 

4 L, ib-^Jf-^O^-b-y hT.y^^ffi5#'n> J; *-b ,y b r-7’l'C*^JXA-1= 

0 4-to 

p 7 f a. - 7 oSScP^trii/s < , * -b .y b T -y J; 'ii'o 
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- F^mMLrr^'^'c 

ii-by vf-zfuzx-it t -t *'S ^ -y°y y^^'yXT $ l 'o 

rUKpp^fcll'CCfi^iaf-nit, fitaOAoTl'ffl'tO^Jg^LTT^'-'o 

SC-3000 fill ;<7-b,y h ua-/S?*tJ 

IN •>- LOAD. VERIFY -> (EAR) 

OUT^ SAVE ^ ■b'i ^ (MIC) 


REM 

i^tTT'p ^^7 A y 

10 REM XXX ^r^-t>-> xxx 
2 0 C L S 

30 PRINT 2+3 
J 

R EMifctt, y p i/9 ■ar^o 


- 71 - 


CONSOLE 


4 ■to 

V L C S 
CONSOLE 5 , 15 , 0 , 1 



iSffiJi, y 0 ~ 23 fTf'-SlJp 34 Lt::fc-i? 4 -to CONSOLE ;=^ i!' p 

mnxb Lt-ti, 5fTS:6^b15fTSt X^<omim io-y L 4 -fo 

ij - y O t-h 23ir^KLX< 24W±^^®L4-ti;. ^y-Kfs:^) 
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t-to 

2;i^P)24 { AMoWL'^Wl) 

CONSOLE ,. 0 LfcB#0^ y y ON, OFF Lt-to 

0 ; 

1 : 

CONSOLE 1 

o; 'yy Yts:\^-QXX'^ 

1 ; h ffLT'/j'ii:? 

4-y<Dmmu , ) fcH-^A^JL-cT^y'o 

CONSOLE RESET =^--t'»^Ui*t-to 
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« 4 $ 


lui m 

R N D ( 7 V iSf' A ) 

-y--r =I pcDS^aiLfcfJ. >f-J^-Q 
<?-f ?)<Drfl!fijyi€>-t;' i < {£:b;Ht-to 

R N D ( 1 ) 

R N D ( 0 ) ait*?IJ;4'«'fk-t?>c 

R N D ( - 1 ) nMn-^xfimx-^o 

SL^^tliL-r^t Li 5. 

10 FOR N=0 TO 10 
2 0 R = R NO ( 1 ) 

30 PRINT R 
40 NEXT N 
RUN 


- 74 - 


1 


. 2380546294 
. 7041 382496 
.4925371138 
I 

-y-'l' p€»S 

2. h>ii^ f3 lb® fi 

I NT ( n ) -i 
I NTMicti, 

? I N T ( 3. 1 4 ) 

[SI 

3 ^ 'hWiti'-'^k.^o 

READY 

=! p 

10 FOR N=0 TO 20 
20 S= I NT ( RND ( 1 ) *6 ) 

3 0 PRINT S ; 
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40 NEXT N 
RUN 

3 5 0 4 1 5 0 

'h§L^.7b'^ts:<tsi>)tLfzA\ Oi‘^&-oX6 7b’^i>i) t^/ui-hUhtL- x 5o 

0 ^ tii ^ i t ^ 

20 S=INT(RND(1)*6) + 1 

L-tliLfcU'15: 

M-b6tX<DmWLfzi:io 

raj&sA-/ ^ 7 A 

10 INPUT A — 

20 PRINT INT(A+0.5) 

30 GOTO 1 0 

d'|5[^.UT4rraj&SA-t^7-p^/7A-e-to 
X%k.t L i 5o 
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DEF FN 


^ V t" ^ ^ g Efe r ^ Hit-c-i-., 

5 REM X>/pt>-fe 
10 DEF FNS(R) 

2 0 INPUT" J\>'r'( 

30 Z=FNS(A) 

40 PRINT 

5 0 PRINT"/ >-ti+ 

6 0 END 
RUN 

= 1 0 

/>1z + = 3 14.15 

DEF FNS(R) = R*R*3.1415lt, F N S ( R ) 

L-C^«LTfofi-tc 

fr## 30 


= R*R*3.1415 - 

= " : A 

= " : z 
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i ^ 5IJ isa » 


>) t-r. 

ASC ( " n " ) 7:^^-mWL 

ASCII ( 7 7^— ) tit.^ American Standard Code Information Interchange ( 7 ^ y V 

7 ^v^'-K : 3 -K '(vy^^-'y^v ^ v 3 : Vi> ) T ^ y * O^ip 3 - K-ClS;^ 
-^IB-f-f'-S-f-^'oH-'t, => vt.”a.-;5f;6'1#®4r^!iaL-^-t< $Ktt't-to 

-C'ii^Lt.^t Li 5o 

?ASC("A") |CR| yj' V7:- K-cSIfr 

6 5 

Ready 

i06 5 A^a,:bLtt'ti-o A S C i tti ( " A " ) O I 5 r, 

* -y " " -e0^t^T^t'o 
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?ASC("!") 3 itllt Lfc^ao 

•CAoTl-'t't-o 

nvt"^->srii, L-cai-'t-to A'-t 

d»ib, A ( 65 )tiB ( 66 ) J; <? ^fer*2> ?> C i t "to 

? A S C ( " BA" ) Oi 2-oJU±A^A%S&i>&0— 

^5 — Li 5o 

10 INPUT A $ 

20 Q = ASC ( A$ ) 

30 PRINT Q 
40 GOTO 1 0 

RUNL/C^bi, 


CHR$ 

A S C => V h 

? C H R $ ( 6 5 ) I C R I 
A 
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Aii. ASCII =>- K-C(i65-eL*:iao 

Li 5o 

10 FOR M=3 2 TO 2 5 5 

20 PRINT CHR$(M): 

30 NEXT M 

RUN 

=¥-4-:- Lfciao 

oi^®r ab 

h ^l,‘CT$V''o ^ - K;Sl|q Lt'-fiao 

LEFTS, RIGHTS, MIDS 

ffi-f HfLC-to 

10 AS = "=i— t— =137 5;K7'' 

20 MS=LEFTS(AS,4) 

30 PRINT MS ^ ) 

RUN 
3— t— 
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$ -Br t -f o 

10 A$ = "a— t— any s;!--?" 

20 M$=RIGHT$(A$,3) 

30 PRINT M$ ^*d^lb3#S4-t'0:5;^? 

RUN 

s;uy 

LTrll- 0 tii Lt -fo 

10 A$="u— t— nay 5 " 

20 M$=MID$(A$,6,3) 

30 PRINT M$ t 0 

RUN ® 

□ ay 

lb 6 i Lt 3 *? tB L t -to 

LEN ( ) 

LEN(A$)li, <tLt-to 
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10 A$="SEGA PERSONAL COMPUTER" 
20 PRINT LEN(A$) 

RUN 
2 2 

<ix4 Ltzo 

0 t-fo 

10 A$= "**********" 

20 FOR 1=1 TO LEN(A$) 

30 PRINT LEFT$(A$,I) 

40 NEXT I 
RUN 
* 

* * * 

**** 

I 
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STR$, VAL 

S T R $ 

10 A=1 : B=3 

20 D$ = STR$ ( A )+STR$ ( B ) 

30 D=A+B 

40 PRINT D$,D 

RUN 

1 3 4 -fT#-^30Oi^* 

STR$(A)<>:Lt-tt, 0 f-fo ±^<O^LmU 

VA L 

wAimmt. sjH$tt^tz<iEKn‘om^-^W'h. 

10 A $ = " 1 2 3 4 5 " 

2 0 B $ = " 1 1 1 1 1 " 
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30 C$=A$ + B$ 

4 0 C = VA L ( A $ ) +VA L ( B $ ) - 

50 PRINT C$ 

60 PRINT C 

RUN 

1 2 3 4 5 1 1 1 1 1 — 

2 3 4 5 6 ^ 


TIMES 

V t" ^ ^ o t -to ^^B^m<o]Emtsi ^ ^i- - ^ o 

= V f ^ ^ ON 1 

00:00:00 Tr-to 

PRINT TIMES |C R I 
00:12:32 - l|S^A;h.t:; 6 ^Pj 0 ^fB^ 
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Btt+i 

10 TIMES = "08:i5:00" ( " B# : :9- : # " ) 

20 CURSOR 15,15:PRINT TIMES 
30 GOTO 20 

t. Reset 45 t “CSoXl't-to 
t 0 t L/Co 

SPC(;^-<-^} .TABC^t'^iz-^gV) 

p R I NT:5;-effit't-to 

SPCHiiJi> 

10 PRINT " ABC ";SPC(10):"XYZ'' 

RUN 

ABC L_i i_i L_i i_i i_j i_j i_i i_i i_j i_i XYZ 

1 0X0^^ ( ) 

TABMfCJt, 

10 PRINT TAB(5);"ABC" 

RUN 
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ABC 


5 

TAB i.fzmmt -^'c^)fgLt■^^^<, 

COMi5[ti, P R I N T:SC<om^^^'t-t<OXX<Mx.tLx 5o 


I N K E Y $ 

i'O ^ 2. iSC-C'-to 

'f—^OX 5 — ;^— K"CM*'€)ife i ^ ^ y ^ f - ) ^St)!i^'t‘0ic1gfijX'to 

10 X$=INKEY$ 

20 IF X$="" THEN 10 
30 PRINT X$: 

40 GOTO 1 0 

ttixsofi 

) ;*. h y ■f6I%^^4-yr'ffT#-^1 0 i 20 OPb^^ <* 

% ^<Odr - x$ <D<^tCA >) 30 

t-tc — yA>h&^^tat. 
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25 IF X$="Z" THEN 100 
100 PRINT " END ":END 

i ix-e Z ^ - ^Jf-t i 7° a ^ 9 A »3 t -f o 

Ktti-o 

10 DIM D (29) 

20 CLS 

30 X=18: Y=20 

40 D (29) = -1 : D (28) = 1 : D (0) = 0 
50 K$= INKEYS 

60 IF K$ = " " THEN K = 0 ; GOTO 90 
70 K = ASC (K$) 

80 IF K >29 THEN K = 0 
90 X = X + D (K) 

100 IF X<0 THEN X = 0 
110 IF X >33 THEN X = 33 
120 CURSOR X , Y : PRINT " I + I " 
130 GOTO 50 
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F R E 


m 

PRINT F R E 
8 3 0 0 

^i8300BYTE C'-'f h ) 0 7 ’ p 7 A i i t -fo 


L L I ST 


T'y v^-ryp^7A y 7. h^#tf-tc 

L I ST tuCA'-t, 


L L I S T 


fT#'§’ 


L L I S T fr#^ 

L L I S T fx#-^ 

L L I S T - fr#^ 

L L I ST fr#^- 
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OUT 


Hit),-}-;- 

tll^J'-^”- 0~255 ( &HOO~& H F F ) t T'OSSfc-ei- o 

VDP &H BE 

&H BF 

-t^'>vKi>I^^'— ^ &H 7F 

POKE, PEEK, CALL 

B AS I C trT'p i, )li#i'^> ^ y 

y-l-c, 

P O K E ( - ^ ) r hV;*. x-i5f 

POKE &H9000,65 

T K &H8000(-32768)~&HFFFF t-et'-fo 

0~255 tt'O^fC-C-fo 

B AS i C o^'-i/a v, j; t-to 
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PE EK ( )Mi5r 


r K u;*. 


A = PEEK (&H9000 ) 

^ U LJ-fo 


& H 0 0 0 0 


& H 7 F F F 
& H 8 0 0 0 

& H F F F F 


^ V • ^ -t y -7 y y 



ROM ) 

POKE^^^i^^;tt■^^„ 


RAM^® 

( 32 KBYTE USO# ) 
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DATA -fU^=7A 


10 REM *** DATA 

20 INPUT "data=";d 

30 IF D=>256 THEN GOTO 20 

40 POKE&H9000,D 

50 A=PEEK(&H9000) 

70 B$=CHR$(A) 

80 PRINT a;"=";b$ 

90 GOTO 20 
RUN 

D AT A = 6 5 
6 5 =A 
D A T A=H 

xt! 2, y a 7 A -e-to 2 5 6 4 5 —mxti 

LULKttijfto 

tH t c h -e-to 
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CALL 


®ttis ( -^ v' vs ) ft, BASIC L/£(tix«'f£ >) t ■tir^o 

i*^L-C7"i=> A^aLTLtl't-fOtrffiELt L i 5 ^ 

L i 5o 
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LPR I NT 


7‘y I NT t-to 

PR I NTlfciigC't^-to 

LPR I NT A ^ AOrt§^7° y ViSf -i'C*tt'to 

10 INPUT A , B 

2 0 C = A+ B 

30 LPRINT C 

40 GOTO 10 

RUN 

7"y -i-cc 


HCOPY 

7° y y iSf :*:T, ASCI I ^ - KOfa-^O^ 
"C-fo 7*9 7 ^ -y 7 KOIa#^i®^tt■^^o 
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^ 5 ^ 


*7^ -7 ~} A y <7 


^-e-to Li 5o 


f. " 1 " 9 F P .y 9° Ofe 

COLOR 1 , 5 , ( 100,100)-(150,150 ) , 7 

'^L .y h " 0 " Cife ~~~ 'y ^ 't ?)|5H 

■ 9 ^ 9 , HS®( 9°P 9'9 2)11® ) 

L ,y h " 1 " oe.ftj2^fi:i'Ofe^JMSL4-to 

Mhim^ts: >) fto 

9‘yy ^ sy 9 B® ( 9' 9 7 ^ y 9 ^B® ) 

L- ,y b " 1 " CDfeti, 
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P R I N T:fcr 
L I N E , P S E T 
LINE, 

PAIN TiCf- i 

tl y V " 0 " Ofe 
TifeOfe 

B L I N E , P R E S E T , fC J; 0 e' -y L " 1 " d'?ii $ixfcB#Ofeo 

■jQQ^g 40F0R l=0T0300 

20 FOR C=0 TO 15 50 NEXT l,C 

30 COLOR 1,C 

t.'to 



fe 


fe 

fe#-^ 

fe 

0 

m m 

6 

i L' * 

1 2 

i L' g 

1 

M 

7 

*fe( -yrv) 

1 3 

-If V ;?" 

2 

i 

8 


1 4 


3 

5-tL'g 

9 

5-tL'* 

1 5 

e 

4 

^ 1/ ' ^ 

1 0 

i L' H 



5 


1 1 
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SCRE EN 




SCREE ^ t-^^o 

^"97^ ^ i t rffii ' f -t^ 


SCREEN 


* 


* 

L_ 




1 : 
2 : 


Y g® 

i^’^y ^ g® 




?7lNg®OjH7]N 


P R I N TXft 
C L S#cD#t 



\y ^ y^ b B ®| 

I 9’7 7 ^ -y ^B®| 
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LINE 


-to (SCREEN 



^77 ^ -y 

ttO;4^ib255 ( 256 K-yh ) 

y 1 91 (192 

K ,y h ) 

■t. 


L I NE:5;tt, 2MS<o^m'^iBMLrW^m^t'to 

{ 1 ) L I N E ( 50 , 50 ) - ( 200 , 50 ) , 1 
( 2 ) L I N E ( 50 , 1 00 ) - ( 200 , 1 50 ) , 8 
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f ■f'o 


m^m< 

L 


10 SCREEN2,2:CLS 
20 LINE(50.50)-(150,50),1 

30 LINE-(50,150),8 


■to SHIP T=^-^WL-t: ED 

LTT^i'o 4 

mti-tlX ^ (Di)>h>7b- >)t-to 


BOX) 

I N feoffee ^f+t'CT^'-'o 

10 SCREEN 2,2:CLS 
20 FOR C=0 TO 15 

30 LINE(80.50)-(160,100),C,B 

40 FOR 1=0 TO 300:NEXT I 



- 98 - 


50 NEXT C 

60 GOTO 60 ( Lfco B R E AK^=---C'il:t *9 t-t ) 

t L i 5o frllSsoo B o^i'^F 


B L I N E 

S-tOA'l' i? t*Ao 

10 SCREEN2,2:CLS 
20 LINE(50,50)-(200,50),1 

30 FOR 1=0 TO 300:NEXT I 

40 BLINE(50,50)-(200,50) 

50 GOTO 50 

?l4r?^-t[i#%raU.'t;"tdN L I N E A-ffl ^ t "t i , 

BL I NEilti. Lfc 
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PA I NT 
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PSET 


BS ^ 4 -to 


mm fe 

P S E T (x ,y ) , 1 


1 0 

SCREEN 2 

, 2 : C L S 

2 0 

X = 0 : Y = 9 5 

: E = 1 

3 0 

P S E T (X , Y 

) , 8 

4 0 

X = X+ 1 : Y = 

Y + E 

5 0 

IF Y = 1 2 0 

THEN E =- 1 

5 5 

IF Y = 8 5 

THEN E = 1 

6 0 

IF X = 2 5 0 

THEN END 

7 0 

GOTO 30 




PSETtt, ,^.'^'hf)itii>tzf)mWL^iM.':>tz^yy^f?^fc>) L4fc 
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PRESET 


P S E T i L t -to P S E T i 1^ < # <3 g T'-to 

c-e-to 

mm 

PRESET(x,y) 


POSITION y 

= O , 3 ; = O X^-fo Q 

p OS I T I ON ?, i , 

x=0,3;=0i'Ji ^' = 80 

7i >) t-fo 


X ft 3; tt 

POSITION (100 ,80)0 ,0 

I— 3 ; 


X =0 3c: =100 



H 

II 

p 

>1 

0 / 

L__ 

j 
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0 , :c POSITION ( 100 , 80) 

y ItJnt'Clf Jp L 'i ■f'o 1 €>0#€)±gjp 

X , y ix $A , 


1 0 

SCREEN 

2 , 2 : C L S 

2 0 

P 0 S 1 

1 T 1 

0 N ( 1 2 5 , 9 5 ) 

3 0 

FOR 

N = 

0 TO 5 0 

4 0 

P S E T ( X 

. Y ) , 1 

5 0 

6 0 

X = X + 1 : 

NEXT N 

Y = Y + 1 
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Cy) 

1 €>B#(D±iSfl 





(X) 

OOBtO 

liJp 


0 o0#oiijp 
(y) 

1 , 1 



j 


POSIT ION PSET 


1 0 

SCREEN 2,2 

: C L S 


2 0 

P OS 1 T 1 ON ( 1 

o 

o 

5 0) ,0,0 

3 0 

FOR N =- 1 0 

T 0 

1 

S T E P . 1 

4 0 

X=N*20+1 20 

: Y = 

S 1 

IN(N)*50+45 

5 0 

PSET ( X , Y ) 

, 1 



6 0 

NEXT N 
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CIRCLE 


C I RCLEiirti, h>lrl,?id>ibA^JLtT 

$ L 'o 


(1) (2) (3) (4) (5) (6) (7) 

mm fe itm 

CIRCLE ( 125,95), 50 , 5 , 1 ,0,1 , BF 

momm 


(1) 

X = 1 25 , y = 

95 (x 255 , y Al^OSA 191 

(2) 



(3) fe 

0~ 15 t A' 


(4) itm 

1 oi t 

*R 


1 J; 



1 X <? AtL 

fzX-ffzOtcf^ 

(5) 

(6) 


( 0;4^ L 1 S t:'Or0l-e/J^'|5:,*-eAA-t ) 


( 7 ) 
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B ^ t -to 

BFK-f^t (3) Ltz&xm ?? L t -f, 




Bjg^ 

BF 


0.75 
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1 0 

SCREEN 

2 , 2 : C 


2 0 

FOR R = 1 

0 TO 


3 0 

CIRCLE 

(12 5, 


4 0 

NEXT R 



5 0 

GOTO 50 


BC 1 RC L E 




CIRCLE 



|fJ0 7" p ^"9 L i 5 


5 0 

FOR R = 1 0 

T 0 

6 0 

B C 1 R C L E ( 1 

2 5 

7 0 

NEXT R 


8 0 

GOTO 10 



L S 

5 0 STEP 10 0':3O±gx.t-t) 

95). R. 8, 1,0,1 


t-to Tifeil^Ufe 


50 STEP 10 
95),R,1 ,1 ,0,1 
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PATTERN 


PATTERN ^ ^ - f-f c, 

h -t- F(D-jC^^m^m^X^t L X 5o 


PATTERN c* K (32~ 255Xti,&H20~&HFF) ,":S:!f:^J^» 



( 1 6 jiSSc ) 


£ 

* 

tE 


0 111 

0 0 0 0 

1 

0 

10 0 0 

10 0 0 

8 

8 

10 0 1 

10 0 0 

9 

8 

10 10 

10 0 0 

A 

8 

110 0 

10 0 0 

c 

8 

10 0 0 

10 0 0 

8 

8 

0 111 

0 0 0 0 

7 

0 

0 0 0 0 

0 0 0 0 

0 

0 


a^,^xx=1 ,6l'x;«. = 0 
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20 PATTERNC*&H20, "708898A8C8887000" 

RUN 

" 0 " d>l±it L-fc^^o 0 " 

• t t "to 
4 5— ffi> 

( 6 ) c* T^y-Y 

@ X'^^-Y' 1 & H 20*^ib& HFF feo&ffi-C'A^lLt-to 

i0 3i®co»'B> 32d^f3 255 f-eoM-exALt-to 

® 8 X 8o-^;=^s K.y 

-to 

, eA*jt0 i Lt;#?ij®^-i i 04fffl^t:t-tc 
p]~[ tt 0 1 1 1 0 0 0 OVZts: 5 tXo >1 

i^hX:iS^^K5yYf. 16 3ifcfc^^Lt-to 
0 1 1 1 H7 , 0 0 0 0tt0 t;\ " 70 " iTi 5 t-to 
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S * A y ^7 

big#; Oi)^h255 

X? ?IJ^ C^l. '-^X-Atl L t -to 


& * 










0 0 0 0 

0 0 0 1 

0 

1 









0 0 0 0 

0 0 11 

0 

3 









0 0 0 0 

0 111 

0 

7 









0 0 0 0 

1111 

0 

F 









0 0 0 1 

1111 

1 

F 









0 0 11 

1111 

3 

F 









0 111 

1111 

7 

F 









1111 

1111 

F 

F 

£ 

K 

.V F — 







10 SCREEN 2,2:CLS 

20 PATTERNS# 0," 0103070F1F3F7FFF" 

30 SPRITE 0, (10,0), 0,1 

RUN 

A ^ S C R E E N 2-Nt±if 
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r <D j: 5 + V ^ ^ < /c^i\ 


li^—XD^^Ii 

t-f, i!^9 7^|S^8 X K.yb(-7;^g — 3:9' ) ^^ <) o^'Lt:^'^ - v 

^fF*? f-fo 

1 0 iLt-to -7^g<DSfC0^1 

8 L 4 "fo 2 “b^j L t 

■to -t.^tStt16ili5:fC.aL2ffi0 16iti5[fcBL4to 

10 2 3tfC, 

1 6iif;:E3;4i.fc8iaoifc!?:d'^:3t=??ys;i LT " " ot^-f^A^t-fto 

:i!tit8x6. ^9-7^ 5,:?ti8 X 8t:-^M$tL4to 
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lOitfc 

imm. 

i6jiit 

0 

0 0 0 0 

0 

1 

0 0 0 1 

1 

2 

0 0 10 

2 

3 

0 0 11 

3 

4 

0 10 0 

4 

5 

0 10 1 

5 

6 

0 110 

6 

7 

0 111 

7 

8 

10 0 0 

8 

9 

10 0 1 

9 

1 0 0)1010 

A 

1 1 

10 11 

B 

1 2 

110 0 

C 

1 3 

110 1 

D 

1 4 

1110 

E 

1 5 

1111 

F 

1 6 

1 0 0 0 0 

1 0 (it*:±0) 
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MAG 


PATTERN^t;-;^7-7^ b t ^ 

|»- 8 t" .y I — -| 


MAG 0 



1 t' .y b = 1 K .y b 


MAG 1 


I 16 tf .y b — j 


#0 

#2 

#1 

#3 


MAG 
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MAG 2 


MAG 3 


1^8 K 5 , 



16 K h 
32 1;' 5, 1 


16 K -j, h . 

■8—1 32 1; y h 


#1 


#2 


#3 
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2 t; y 1 X 2 I; y 1 ^ 
1 K.y 1 i-tSo 


MAG 2^r4-0'g-;b‘&'C 

m<o 


M A G 0 -CJi. 1 t' b 4: 1 K .y h i LX. 8 X 8 K .y h 

MAGI Xht. 8 K .y h X 8 K -y Y (D'< f - 'y<0 4 (#0~#3,#4~#7 

,......, #252~#255) Lt 1 6 K -y b x 1 6 K -y MO# 

M A G 2 t'ti. 2 t’ ,y b X 2 t' .y b ^ 1 K -y b i LX. 8 x 8 K -y b 
t-fo 

t' -y b 1 6 t' ,y b X 1 6 t' .y b Kts: >) t-fc 

MAG 3 MAG 2-ejg^Lfc»^4'0'&;b-yr-Cffl< Ci*'^aiS54-to COS-a-Ji 

32 t' .y b X 32 L -y b icts: ^ t-fo 
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SPRITE (^7"9T h) 


MAGlSZ. PATTERN jt, CO SPRITE 

o-c-to 

o~3i &m 

SPRITE (x.y), ;=^7-9'f hig|^, fe 


0 1 Slu^cfj: 0 t <ts:i>lii t\ m^fs: >) t-f. 




-fo 
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X-/7^ h^iSrvli, PATTER N3t^#(tyc^ S « Z tVt 


PATTER N <!:> f-to ^ 

^ iLi^mo S) s t -t c 



iSb hti, ;!K¥*l±rft±4^'^-vtTr^^$Kt'tc 4fflW_ho^'^ - 
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mem m i <D 2 


tixtio >)-t-to 

AB S (X ) 

M ^ A B S ( X ) 

PRINT ABS(-5) |c R I 5 

PRINT ABS(3x(-6)) fcTI 1 8 

RAD 

^ m ^&A^h9i^r'yKmmLi-to 

M ^ R AD ( X ) 

0°, 15°, 30°, 45°, 60° ^9i>T So 

10 FORI=0 TO 60 STEP 15 

2 0 X = R AD ( I ) 

3 0 P R I N T " R A D ( " : I ; " ° ) = " ; X 
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40 NEXT I 
RUN 

R A D C 0° ) = 0 

RAD(1 5°)=. 261 7993878 
RAD(30‘’)=. 5235987756 

DEG 



D E G ( X ) 

X ^ ” 

f y "y o 


PRINT DEG(0.26) 

|CR| (14.896902673) 

® m 





PRINT PI 

|c R 1 ( 3 . 

1415926536) 

1 0 

2 0 

3 0 

RUN 

INPUT" 

S=A^2*P I 

P R 1 N T " X > J 

" : A 

: s 
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7 5 

78.539816333 

S I N ( V ) 

m ^ SIN(X) ^mc X )ii9i>7'y 


1 0 

FOR 

TH=0 TO 90 STEP 

2 0 

S = S 

1 N ( R AD ( T H ) ) 

3 0 

P R 1 

NT th;tab(io):s 

4 0 

NEXT T H 

RUN 

0 


0 

3 0 


. 5 

6 0 


. 86602540379 

9 0 


1 
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cos ( 'y ) 


TAN ( 


^ ^ cos ( X ) ?l^( X ) 9-:>7y 

10 FOR X=0 TO 90 STEP 30 
2 0 A = COS ( R AD ( X ) ) 

30 PRINT x:tab(io);a 
RUN 

0 1 

30 .86602540379 

60 .50000000001 

9 0 0 

iSf V ^ y F ) 


^ TAN(X) ?li[( X )ttyi>ry 

10 INPUT" " : A 


- 121 - 


r 


20 X=TAN(RAD(A)) 

3 0 p R I N T " T A N ( " : A ; " ° : X 
RUN 

h'X't? 3 0 

TAN(30°)= .57735026919 

ASN ( r-it'-y-'l’ V ) 

Wt tg s I N (?€> 

^ ^ A S N ( X ) Xit-1 ~1 

10 X = A S N ( . 5 ) 

20 Y=DEG(X) 

30 PRINT Y 
RUN 
3 0 

ACS(T-^r7^^^V) 

m m cos 
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AT N ( 



AC S ( X ) 

1 0 

X=AC S ( - 1 ) 

2 0 

Y = D E G ( X ) 

3 0 

PRINT Y 

RUN 

1 

8 0 

- ^ V 

i> a. V h ) 

^ m 



AT N ( X ) 



1 0 

X = AT N (1 ) 

2 0 

PRINT X 


Xii-1 ~1 


mE^ 


RUN 

.7853981634 
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S G N ( V ) 


0 OB^ft 0 
lEOBtti 1 

S S G N ( X ) 

10 FOR I=-2 TO 2 

2 0 N = S GN ( I ) 

3 0 P R I N T " S G N ( " ; I ; " ) = " ; N 

40 NEXT I 
RUN 

S G N ( - 2 ) =- 1 
S G N ( - 1 ) =- 1 
S G N ( 0 ) =0 
S GN ( 1 ) = 1 
S G N ( 2 ) = 1 
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LOG 


M ^ L OG ( X ) 

10 FOR J=1 TO 3 

20 X = LOG(J) - ?iiS[JtiIEOfi-e-to 

3 0 P R I N T " L 0 G ( " ; J ; " ) = " : X 

40 NEXT J 

RUN 

L0G(1 )=2.67468532E-11 
L0G(2)= .69314718057 

L0G(3) = 1 .0986122886 


L TW 

^ m 

2 i -t 1 -to 


L TW( X ) 


L 0 G i 1^ 
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L G T 

^ m 1 

PS L G T ( X ) 

1 0,1 0 0,1 000 c 

1 0 N = 1 

2 0 N = N>|: 1 0 
30 X=LGT(N) 

4 0 P R I N T " L G T ( " : N ; " ) = " ; X 
50 IF N<1000 THEN 20 
RUN 

L G T ( 1 0 ) = 1 
L GT ( 1 0 0 ) =2 
LGT(1000)=3 

EXP 

® fg (D, 

PS E X P ( X ) 

e ‘ . e ^ . e « t-to 
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10 FOR 1=1 TO 3 

2 0 X = E X P ( I ) 

3 0 p R I N T " E X p ( " : 1 ; " ) " : X 

40 NEXT I 

RUN 

EXP(1 )=2. 7182818284 
EXP(2)=7 . 3890560987 
EXP(3)=20. 085536923 

SQR 

^ SQR ( X ) 


1 0 

INPUT 


: A 

2 0 

X = SQR ( A ) 


3 0 

PRINT 

" ;u- \- " 

; A 

4 0 

GOTO 

1 0 


RUN 
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2 

;u— h = 1 .4142135624 
Xrz-x 3 

II— |v = i .7320508076 


H E X $ 

M ^ H E X $ ( X ) 

32768~32767 OFeTC-to 
-10,-5,0,5,10, 15^16jifJlE']^L4-to 

10 FOR S=-10 TO 15 STEP 5 
20 X$=HEX$(S) 

30 PRINT s:"=";x$ 

40 NEXT S 
RUN 

- 1 0 = F F F 6 

- 5 = F F F B 

0=0 1 0=A 

5 = 5 1 5 = F 
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I SOUND I 

SC- 3000 rti, 0 t-f. 


m 

SOUND 


1 , 1000,15 


t ~iV- -S- 

' — s m 


^ ^ v ^ 


1 0 0 0 --/I- '7 LfCo 


< ^ + V ^ > 

^ -^co^ -Y 'y 1 'O^D^L^=‘l±l■i“fr^o ^ -V V /i-'t'i, 0 ~ 5 't "C'0 6 ®€)Jb 
^ t-tc -to ) 

0 : #^-/gLf-to 

m SOUND 0 
1~3: 1 1 0 Hz~€)^^aiLt'tc 
4 : !t-.9 -< h / -< ^O'MiR 
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5 : 


<m jS &> 

^ ^ V ^■. /u ^ ^ 3 Hz ) 

^ ^ y ^ AXitbcOt^it^ 

0~2 : ?) 

3 : =f--^y^^i'3-X:mm-f^m'i&m^ts:>)-ii-. 


0 : 

1 ; 

I 

1 5 ■ 

cix^^X-^X. y- ^ PT-f 4r^'e?> c t-fo 


- 130 - 


iS » * 



f 1 

f2 

f 3 

f4 

f 5 

c 

K 

y\ 


1 31 

262 

523 

1 047 

C+ ' D& 




1 39 

277 

554 

1 1 09 

D 

U- 

H. 


1 47 

294 

587 

1 1 75 

D+ , E& 




1 56 

31 1 

622 

1 245 

E 

5 



1 65 

330 

659 

131 9 

F 

7t 



1 75 

349 

698 

1 397 

F* , Gb 




1 85 

370 

740 

1 480 

G 

7 

h 


1 96 

392 

784 

1 568 

G* . Ab 




208 

41 5 

831 

1 661 

A 

7 


1 1 0 

220 

440 

880 

1 760 

A* , Bb 



1 1 7 

233 

466 

932 


B 

'> 

n 

1 23 

247 

494 

988 



Hz. 
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BEEP 


y' P A£Dit>t;\ i‘o 

BEEP 

BEEPO BEE 

BEEP1 ii-tuMOmid^o 

BEEP2 


1 0 

A $ = 

" S 

EGA 

P 

E 

R S 0 N A L 

COMPUTER " 

2 0 

FOR 

1 

= 1 

T 0 


L E N 

( A$ 

) 

3 0 

P R 1 

N T 

M 1 

D $ 

( 

A $ , 

1 , 1 

) : 

4 0 

BEE 

P 







5 0 

FOR 

J 

= 0 

T 0 


1 0 0 

: N E 

XT J . 1 


6 0 END 
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I N P 


I/O OUT 

I/O --H- 4-’- 

{s.^'yj 

10 A=INP(&HBE) 
20 PRINT A 
RUN 
3 2 


fT#-§-10“ei/0 --H- h##B E ( 16iii[)IJl*2.T-^^^i5rAIC^^tBLt-to 

- ::3 V f ^ ^ J; s - i t -to 

I/04-‘- 0~255 (&H00~ 

& H F F ) t-rsormWc-Ts-fo 
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ST I CK ( n ) 


1 

2 


: 1 =iy 3 'i yf v ^ 

2=i^3T^'7'^ -y 


(M-tffi) 


(±) 

1 


(£) 7 


3 (;&) 


5 

(T) 


S T R I G ( n ) 


• i> 3 y( ~y ^ 1 

2:i>aT;^T-(-y^' 2 


( mtm ) „ . ^ 

0 : ir7 

1 : h y *' ( £ ) O N 

2 : h y *' ( * ) 0 N 

3 : b y iS (£,:&) 0 N 
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<STICK,STRIG> 

L/C J 0 Y S T I C K 7“ a 7' 9 A 

10 REM JOY STICK TEST 
20 B$= " SHOOT ":CLS 

30 P1=STICK(1):P2=STICK(2) 
40 S 1 =S T R I G ( 1 ) : S 2 =S T R I G ( 2 ) 


5 0 F 

1 $ 

= 

II II ; F 2 $ = " " 






6 0 1 

F 

P 

1 = 1 

THEN 

FI $ = " 

U P " 




7 0 1 

F 

P 

1 = 3 

THEN 

F 1 $ = " 

RIGHT " 




8 0 1 

F 

P 

1 = 5 

THEN 

FI $ = " 

DOWN " 




9 0 1 

F 

P 

1 = 7 

THEN 

FI $ = " 

LEFT " 




1 0 0 

1 F 


P 2 = 1 

THEN 

F 2 $ = 

"UP " 




1 1 0 

1 F 


P 2 = 3 

THEN 

F 2 $ = 

"RIGHT" 




1 2 0 

1 F 


P 2 = 5 

THEN 

F 2 $ = 

" D OWN " 




1 3 0 

1 F 


P 2 = 7 

THEN 

F 2 $ = 

"LEFT " 




1 4 0 

1 F 


S 1 > 0 

THEN 

F 1 $ = 

FI $+B$+STR 

1 N G $ 

( 

S 1 ) 

1 5 0 

1 F 


S 2 > 0 

THEN 

F 2 $ = 

F2$+B$+STR 

1 N G $ 

( 

S 2 ) 

1 6 0 

CURSOR 

1 , 1 0 : 

PRINT 

"PLAYER 1 " 

; F 1 $ 



1 7 0 

CURSOR 

1,15: 

PRINT 

"PLAYER 2 " 

; F 2 $ 




180 GOTO 20 


- 135 - 


V R AM ( 1 6 t- ) 


I VRAM MAP I 


& HOOOO 


& HI 800 

& H2000 


& H3800 
& H3B00 


!f =7 y ^ y - V 

V— y 

- x-y'/b 

(6144 b ) 


1 


y'yy ^ y y - V 

7 — ^ — y' /i' 

( 61 44 b ) 


yyyy[yyt^ Y'<y-'y 


y^y'y'i hMtty— y’-'^ 


(^) 


b -t— hV<y — y 

^r-yVi' 


(^) 


& H3C00 


V OB# 

T^y h -t- F 
y — y -fe* #. \y—y^ — y’;v 

( 2048 h ) 


l7]N;6»y' y y 


-1 y 


y o^ 


y-y"?-!" b-tf#;y-y-r - y'/i- 

( 2048 y'i h ) 


(768-'<'1' b) 
(1 28^<'1’ b) 

(960^<-f h ) 


136 - 


-ffil &H1 800~&H1FFF02K^Mh 

KO■r-7'/^F^§^i^ ^ ^ y (RAM) (c-te-y' 

Sih.t'fo 
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V P 0 K E 7 K , 7 7 ^- 7 ^- 9 - 




23 


X 



(0-255) 


0 1 2 

39* 7 A 

0 - * - 

255 

/r F 17 


0 

f^7 Fi77. 


&H3C00 


1 

&H0000 


m 40|fjxi^24fT=9607'^ h 


y 

9'9 7^ 5,9^- F 


TEXT MODE 





VT:- Kiaffi 



^256 F.y h xmi92 F.y h /8 


1^38* 9 A 







=61447 ■'4' b 


L 

> 

191 


J 

SCREEN 1 



SCREEN 2 



VRAM MAP ISB 


7-=^^ hSffiOT K ly i. 5 
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)=y*40+:!C +&H3C00 

fzfcLi x = 0~39 . y = 0~ 23 ) 

K( 10 3i25:t:'0~255Xtt16iit:'0~ 

&HFF ) 


ful2I:£€iJ; 5 i'ca'^or :* 5 

CURSOR VP0KEfcj;?>^etBitiS:^(^^C2 
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VPOKE T , 7-'-^ 


^*97^ y ^ ia®/s 


^'57^ 7 or K X 5 

7*9 7 ^ .;, 7 7 K U7«= INT ( y / 8 ) * 256 + ! NT ( x/ 8 ) * 8 + 3 / MOD 8 
TcfiL ( y 1 91 ,xtt0~255 ) 

±otfm^x^xnhh^r Ki7 7,tift^$ti/c«)ffo«:;^[^8 try h ( K,y h )o^® 

T K^7.fi,^0^®r KU7.J; INT ( x/ 8 )*8 t* 

'y ^ SXih^o 


m 



O & H 9 3 ( 147 ) 


^^*7 7 ^ ,y 7fejgg0:^0;7 7 -T- 7'/^r F I7 7.fi, ±sBOT F UT-fCgi H 
2000 7i()ffi-tr-7ft1 B b ) :g:Og^l: (0 ~ 255 ) 

-t:\ 2 3iT-7rELr_hia:4 bit ;&-^ffiSfe#^'eTfi4 bit 
( 7 ' 9 7 ^ .y 7 O 7 -? 7 - 7 17 - ^ r - y'/i' i i; 9 - r - 7 '/t '0 r F 17 7 . ft 1 ^ 1 fc 
^tCL-rr;!, ) 
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^' 77 ^ y ^ -y—y — ■/ ;vy f uy 


= INT (y/8 )*25 6+ INT(x/8 )*8 
+ y MOD 8 + &H2000 

91 

a:tt0~255 

1 6 +ir^feit-i- 

( 0 ~ 15 ) ( 0 ~ 15 ) 
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SCREEN 


7]N H iS 
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VPE EK 


VPEEKffliStiVPOKEOr 


V- ^ X- 7° p i/9 a 


10 AD=&H1 800+&H31*8 : REM " 1 " O-' - vcD 

20 FOR A = AD TO AD + 7 
30 DA=VPEEK(A) 

40 PRINT HEX$(DA) 

50 NEXT A 


2 0 
6 0 
2 0 
2 0 
2 0 
2 0 
7 0 
0 0 




1 







1 

1 








1 








1 








1 








1 







1 

1 

1 
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IE » • IB 5IJ 



^ ffl * ic 

wc m m n 

•< 


A , B , Z , A A , A B , Z Z 

A 0 , A 1 A 9 

( , ) 3 A(15), B(5,5), 

A C ( 3 , 3 , 3 ) 

A $ , A B $ , A 1 $ 


SB n ( , ) 3 Ajct-v- a $ ( 1 5 ) , 

B$ (5,5),AC$(3,3,3) 




ISO 




ga?yo|gffl> 

±9.9999999999E-99 

I 

±9.9999999999E + 99 

S?0o®H> 

0-255 
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• S fc ^ ^ 

(^J) 3 , - 2 , 9 9 ! 


1 

CO 

CSJ 

o 

Sw./ 


(I^J) 3,E99,- 

4 E - 8 2 

• 1 6 3i ® ^ 

&H rTTMoffil 

im) &H6 4 

&HF F F F ■ ■• 

<X'^n‘mi> 

" “C'ffltr. " " 

^ 2-^m^-x7jsXo 


"ABC" - X"^ ABC 


" " ^ NULL 

II II II II _> " 

II A 3 " " 6 4 " ^ X'^ A 


2 6 7 6 8 
5.3,86.0 
E 3 , 0 . 3 E + 

0 0 0 ~ F F F 
0 0 i 1^ C 

- 1 irau. 

(^£L) 

1 " 6 4 
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F*3 # 

m K 


256 

y'i Lt:SII^OT=^;^ h -T > - v> r -tr t ^ :5:^ i[ 

256 :4:^^ 

:5:¥?|J<!: Lta5 C 

255^? 


32 

y r 

300 :i;^ 

FOR ~ NEXT 4 V ^(T) u-~?/u|5: 

16 

GOSUB, RETURN v 

8 
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7 
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r 
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u 

J* 

4^ 
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> 

K 

[ 

k 

{ 




¥ 

t 
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o 

:n 

C 
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1 
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7 

• 

H 
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- 
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m 
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J 


A 
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¥ 

! 
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> 

N 


n 


t 


a 

-fe 


❖ 



F 



/ 

? 

0 

1Z 

0 


- 

1 


y 

-7 

o 

0 



V h p — yL- 3 — K 
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+ ^ 7-5^^— =1— K 


32 

SPi 

48 

0 

33 

! 

49 

1 

34 


50 

2 

35 

# 

51 

3 

36 

$ 

52 

4 

37 

% 

53 

5 

38 

& 

54 

6 

39 

▼ 

55 

7 

40 

( 

56 

8 

41 

) 

57 

9 

42 

* 

58 

: 

43 

+ 

59 

> 

44 

9 

60 

< 

45 

- 

61 

== 

46 

• 

62 

> 

47 


63 

9 


® 

80 

P 

A 

81 

Q 

B 

82 

R 

C 

83 
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D 

84 

T 

E 

85 

U 

F 

86 
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G 

87 

w 

H 

88 
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1 

89 

Y 
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90 

z 

K 

91 

C 

L 

92 

¥ 

M 

93 

] 

N 

94 

X\ 

0 

95 

n 


64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 


96 


112 

P 

97 

a 

113 

q 

98 

b 

114 

r 

99 

c 

115 

s 

100 

d 

116 

t 

101 

e 

117 

u 

102 

f 

118 

V 

103 
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119 

w 

104 

h 

120 
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105 

i 

121 

y 

106 

j 

122 

Z 

107 

k 

123 

{ 

108 

1 

124 
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• 

109 

m 

125 

} 

110 

n 

126 


111 

0 

127 



m 

144 


B 

145 


H 

146 

ffl 

H 

147 

0 

ffl 

148 

B 

ffl 

149 

a 

Q 

150 


Q 

151 

a 

□ 

152 

B 

□ 

153 

□ 

□ 

154 

u 

□ 

155 

H 

□ 

156 

H 

□ 

157 

n 

ffl 

158 

n 

B 

159 

□ 


128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 
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160 


176 

- 

192 

-S' 

161 

O 

177 

7 

193 


162 

r 

178 

'( 

194 

"J 

163 

J 

179 

0 

195 

"T 

164 

N 

180 

I 

196 

b 

165 

O 

181 

It 

197 

■r 

166 


182 


198 

— 

167 

r 

183 


199 


168 

-f 

184 

'7 

200 

:t' 

169 


185 

'r 

201 

/ 

170 


186 

a 

202 

J\ 

171 


187 


203 

t 

172 

-V 

188 


204 

7 

173 


189 


205 


174 

3 

190 

■fe 

206 

Tlx 

175 

•y 

191 

V 

207 

■7 


208 

•«» 

209 

A 

210 


211 

=E 

212 

■V 

213 

D. 

214 

3 

215 

7 

216 

<} 

217 

)l 

218 


219 

□ 

220 

9 

221 

> 

222 

□ 

223 

□ 


c 

240 

'X 

E 

241 

7k 

[1 

242 

X 

□ 

243 


□ 

244 

± 

■ 

245 

4 

m 

246 

4 

B 

247 

♦ 

m 

248 



249 

© 

» 

250 



251 

X 

® 

252 

H 


253 

L 


254 

0 

o 

5 

255 



224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 

238 

239 
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3V> h* 


No. 

=2 -r v K 

ii m 

1 

LIST 


2 

L L 1 S T 


3 

SAVE 

9° a A^:* -fe ,y F 

4 

V E R 1 F Y 

^ ^ 'J y ^ t A -b ,y yt-- y°ic.^=§- 

■^ixfzy" p ;5^ 9 A (Oitiio 

5 

LOAD 

;*-t,y Ft — 7”C)9°p;/9A^y<-tyi'::p — K 

-r^o 

6 

RUN 

9"p> ^'9 A^^fT-t?)o 

7 

C 0 N T 

^^9 A^iE^T■f ?)o 

8 

N EW 

7"p ^*9 A^^ y T-t-:5o 

9 

DELETE 

yp ^9 A^a5:9-6^f-^ y T-t^o 

10 

AUTO 

vy- 

11 

R E N UM 

9^ 9 9- 
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NO. 

X - h ^ V 1 

m m 

1 

REM 

n ^ V h 

2 

STOP 

7 P ^7' 5 A O— B#4>rr, CONT IC J; f? ggfj o 

3 

END 

7° p 7" 7 A oHfrllTo 

4 

LET 

ft A ( ) o 

5 

PRINT Xlt ? 

f ^ 7. 7° 

6 

LPRINT Xlt L ? 

7" i; 

7 

INPUT 

A-AA 

8 

READ 

“DATA” 17 7 1 ?)o 

9 

DATA 

“READ” 7>r- 1 7 7 H:!!; fcAii f A- ^ r - 7 ^Tjs'fo 

10 

RESTORE 

“READ” 7.7 - 1 7 7 1 fc J; OfcAiitf “DATA” 7 t- 1 

7 7 

11 

DIM 

s?yo^Wc 

12 

ERASE 

y T-r?)o 

13 

DEFFN 

?)o 

14 

GOTO 

:9-Ko 

15 

GOSUB 

-r 7' ^ 7-xC):g'|l!io 

16 

RETURN 

i^7'/^-^7;i=>lbOM 

17 

ON ~ GOTO 

ON ~ GOSUB 

?) tT#-§- "Sr ^ o 

18 

FOR ~ TO 

STEP ~ 

NEXT 7.7- 17 7 1 

STEP 

19 

NEXT 

“FOR” 77-l7 7li'Cj;?,^0fI L®»0f^rft^„ 

20 

IF-THEN 

^f4^:9'iKo 

21 

CONSOLE 

ilj®7. 7 p — 7 11.^7#, =P+777— -fe.yl^ 
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NO. 

x - 1 ^ V 1 

m m 

22 

CLS 


23 

SCREEN 

jljfflO-KI#;Co 

24 

COLOR 


25 

PATTERN 


26 

CURSOR 


27 

POSITION 

ffi^O®5go 

28 

PSET 

5 

29 

PRESET 


30 

LINE 

MkiS i o 

31 

BLINE 


32 

CIRCLE 

nkiS<. 

33 

BCIRCLE 

nx^m-to 

34 

PAINT 


35 

SPRITE 

1 fe^ -ykiMMo 

36 

MAG 

XT' 9 5 1 0±§-^^Jt^-f ?)o 

37 

SOUND 


38 

BEEP 

BEEP^^^^^-ti-^o 

39 

HCOPY 

7^4r;*. MiiHOF*3§^7° y v^i-cn 

40 

CALL 

-y-70^-^■ v-s:9-R-t2,o 

41 

POKE 

^ ^ y — NO#§-iA.^o 

42 

OUT 

hKiax-t^o 

43 

VPOKE 

VRAM ICx-;J'^r»t3iiti-o 


*510;*. r- h > V h basic 2 t ■^^o 


- 152 - 


m ^ 


NO. 

m m 

§ 

1 

ABS(x ) 


2 

RND(x ) 


3 

SIN(x ) 

X <D 

4 

COS(x ) 


5 

TAN(x) 

X ^ V a. V 1 So 

6 

ASN(x) 

X v^^2i&So 

7 

ACS(x ) 

X or- 

8 

ATN(x) 

X or-^' ^ V h 

9 

LOG ( ) 

X 

10 

LGT ( ^ ) 

X 

11 

LTW(x) 

X O 2 ^j£t-tS^i5[^^feSo 

12 

EXP(x) 

e O X 

13 

RAD( X ) 


14 

DEG( X ) 

9 i>T 

15 

PI 


16 

SQR(x) 

X OT:^fi^r^J6So 

17 

INT(x) 


18 

SGN( X ) 

X OIEA^-§-^r#-;tSo 

19 

ASC(s) 

s 0*130 => - So 

20 

LEN(s) 


21 

VAL(s) 

^^?iJs^i^fir^ft-fSo 
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NO. 


§ 

22 

CHR$ (x) 


23 

HEX$ (x ) 

X <0 16 So 

24 

INKEY $ ( X ) 

(NULL) 

25 

LEFTS (s,x) 

■X'^n s h x^si 

26 

RIGHT $(s,x) 

S lb X # @ t 

27 

MIDS (s, x,^') 

bC??!l X y 

28 

STRS (x) 


29 

TIMES 

p .y 

30 

PEEK(x ) 

> ^ y - X #jfeO|^g^-#-;tSo 

31 

INP(x ) 


32 

FRE 

-t y y 

33 

SPC( X ) 

7' y y h ;^T— 1 ^ V 1 y.-^ — y-^^S)H"So 

34 

TAB(x ) 

7° y y h 7.x - h ^ y 1 ^TTcfeB^faSo 

35 

STICK (n) 

i>a4'7x.^ n 

36 

STRIG (n) 

i> a 4” 7.X^ -y 7 ri O 1 y .y *'-4-'7 yOttffi^TF'to 

37 

VPEEK( X ) 

VRAM x#HfeOrt§^-^xSo 
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X =7 - ■/ y iz — { 


1 * Tfi FORMAT 


9 


y ••/ 


error 


( 2 ) 

? ^ •■/ -fe—i^ error in 


-7-i >i->J^— ! 


(3) INPUT ;^T- b ^ V 


? 


/ •■/ iz—i> 
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System 

BASIC ^ V ^ 7” y V ^ €) 7" p 9 A 7-0 

( ) 

N-formura too Complex 


S-formura too Complex 


Overflow 


Division by Zero 

0 o 

Function Parameter 


String too long 

2 5 5^;t--^'- Lfco 

Stack overflow 

. * -y * PAINT 

Out of memory 

7 ^ y d'j®. y 'o • 7 ^ 7. b • • n^ij 

Number of Subscripts 

( f@fc ) im-Mo 

Valve of Subscript 

Ss^^©ffij5t3b';4>Ly'o 

Syntax 

:i&±<o^9-o 

Command Parameter 

P 7 7 7 7 7 

Line number over 

AUTO Xit RENUM Kisl^'Cy'f 'y v 65535 :^- 
f?>o 

Illegal line number 

7^ V^" 7x< — L\,^^ 

Line image too long 

7^ ( RENUM 


- 156 - 


/■ .y -fe — i/ 

1*1 § 

Undefined line number 

( RENUM , GOTO , GOSUB , 
IF-THEN , RESTORE , RUN ) 

Type missmatch 

A-r S « i ft A ^ S ilU O ^ 7“ 

( mm. ) 

Out of DATA 

READ 7.x- b 7 V h f-ci 5 t DATA ifc 

Ox — ^ 

RETURN without GOSUB 

GOSUB RETURN 

GOSUB nesting 

GOSUB OAfx'f-Ji)'^ 1 6 Afco 

NEXT without FOR 

NEXT FOR xx - h 7 v b 

FOR nesting 

FOR ~ NEXT OAfxf^S'i 8 AAo 

Statement Parameter 

XX — h 7 X h o^' y ^ ^ 

Con't continue 

CONT = V h fc J; ;f)icfT;4'^^n:tgo 

FOR variable name 

FOR XX - b 7 X h (D/v-x^mt’^mmM.m.xfsiK-o 
( ) 

Array name 

DIM XX- b 7 X b O^'X 7 

Redimensioned array 

2 MK-Mm LX ^ t L/C. 

Undefined array 

ERASE L i 5 i L/c„ 

No program 

7"p X'xx;6>x^x b cfJi'CiSb'Of'C SAVE Li 5 i L/c. 

Memory writing 

7 .t y -NO^tiAA^x-. ( LOADBf) 
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/■ -b — i> 

§ 

Device not ready 


Undefined function 

$ i^■r 1 ' =• - l±l Lfco 

Verifying 

T — 7°0 7° P 9 A i 9 — „ 

Function buffer full 

5 i Lfco 

Illegal direct 


Redo from start 

INPUT ;^x - ^ > V h 
• lb Ail L io L 

Extra ignored 

INPUT ^ X — h > V h AAA — ^5' Ll'o 

Unprintable 

±tfiJiit-€)p^9 -o 
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10 

50 

100 

110 

120 

130 

140 

200 

210 

220 


-fU^’=7h. 


^ ^ PAINT 


SCREEN 2 , 2 : CLS 

230 

LINE (X . Y ) - 

X=10 : Y=10 : XX=250 : YY=190 

240 

Y=Y+20 

REM LINE 

250 

NEXT 1 

FOR 1=1 TO 12 

300 

REM PAINT 

LINE (X,Y)-(X,YY),1 

310 

A=RND (1) *240 

X=X+ 20 

320 

B=RND (1) *185 

NEXT 1 

330 

C=RND (1) * 15 

REM H n line 

340 

PAINT (A , B) . 

X=0 

350 

GOTO 300 

FOR 1=1 TO 10 




( XX , Y ) . 1 
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LINE 


1 0 

SCREE 

N 2 , 2 

• 

C L 

S : 

COLOR , 

1 5 

FOR 1 

= 

0 T 0 3 0 





2 0 

A= 1 N T 

( 

R N D 

( 

1 

) 

* 1 

6 ) 


3 0 

B = 1 N T 

( 

R N D 

( 

1 

) 

* 1 

2 8): 

c = 

4 0 

D = 1 N T 

( 

R N D 

( 

1 

) 

* 2 

5 6): 

E = 

5 0 

L 1 N E ( 

B 

. C ) 

- 

( 

D 

, E 

) > A > 

B 

5 5 

N E X T 1 









1 0 0 

GOTO 

1 

0 








5 


N T 
N T 


( R N D ( 
( R N D ( 


L I N E B F 


1 0 

SCREE 

N 

2 , 

2 

: 

c 

L S 


2 0 

A = 

1 N T 

( 

R N D 

( 

1 

) 

* 1 

6 ) 

3 0 

B = 

1 N T 

( 

R N D 

( 

1 

) 

* 1 

2 8 ) : C = 

4 0 

D = 

1 N T 

( 

R N D 

( 

1 

) 

* 2 

5 6 ) : E = 

5 0 

L 1 

N E ( 

B 

. C ) 

- 

( 

D 

. E 

) , A , B F 

1 0 0 

GOTO 

2 0 







N T ( R N D ( 
NT ( R ND ( 
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) *9 6 ) 

) * 1 9 2) 


) *9 6 ) 

) * 1 9 2 ) 


PAINT 





1 0 

SCREEN2,2:CLS 



2 0 

FOR 1=0 TO 

2 5 5 

S T E 

P 1 6 

3 0 

L 1 N E ( 1 , 0 ) - ( 

1 , 1 

9 1): 

N E XT 1 

4 0 

FOR 1=0 TO 

1 9 1 

S T E 

P 1 6 

5 0 

L 1 N E ( 0 , 1 ) - ( 

2 5 5 

, 1 ) : 

N E X T 1 

6 0 

C = 1 N T ( R N D ( 1 

) * 1 

6 ) 


7 0 

X= 1 N T ( R N D ( 1 

) * 2 5 6 ) : 

Y= 1 N T 

8 0 

P A 1 N T ( X , Y ) , 

C 



9 0 

GOTO 60 





R N D ( 


1 ) * 1 9 2 


- 161 - 


C 1 R C L 

. E 1 


1 0 

SCREE 

N 2 , 2 : C L S : 

2 0 

FOR R 

= 1 T 0 9 6 

3 0 

C = 1 N T 

( R N D ( 1 ) * 1 

4 0 

C 1 R C L 

E ( 1 2 8 , 9 6 ) 

5 0 

NEXT 

R 

6 0 

GOTO 

2 0 

CIRCLE 2 


1 0 

SCREE 

N 2 , 2 : C L S : 

2 0 

FOR R 

= 1 T 0 9 0 ST 

3 0 

C = 1 N T 

( R N D ( 1 ) * 1 

4 0 

C 1 R C L 

E ( 1 2 8 , 9 6 ) 

5 0 

NEXT 

R 

6 0 

PAINT 

( 0 , 0 ) , 5 


C 0 L 0 R 1 5 
6 ) 

jRjCjl jOjI ) 


C 0 L 0 R 1 5 
E P 5 
6 ) 

jRjCjl lOil f 
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CIRCLE 3 


1 0 

SCREEN2.2:CLS 

2 0 

X = 

1 N T ( R N D ( 1 

) * 2 5 6 ) 

3 0 

Y = 

1 N T ( R N D ( 1 

) * 1 9 2) 

4 0 

C = 

1 N T ( R N D ( 1 

) * 1 6 ) 

5 0 

R = 

1 N T ( R N D ( 1 

) *2 0 ) 

6 0 

C 1 

R C L E ( X , Y ) 

. R . C , 1 

7 0 

GOTO 20 



B C I R C L E 

10 S C R E E N 2 , 2 : C L S : CO L 0 R 1 5 
20 FOR R=1T096 STEP 10 

30 C=INT(RND(1)*16) 

40 CIRCLE(128, 96), R,C, 1.0,1 
50 NEXT R 

60 FOR 1=91 TO 1 STEP-10 

70 BCIRCLE(128,96),I,,1,0,1 

80 NEXT! 

100 GOTO 20 
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1 0 

M= 1 







2 0 

SCREEN 

2,2: 

C L S 



3 0 

MAG M : C 

= R N D ( 

1 

) * 1 3 + 1 



4 0 

CURSOR 

10,1 

0 

• 

PRINT CHR$(17);"MAG";M 


5 0 

FOR Y=0 

T 0 

1 

91 STEP 4 



6 0 

PATTERN 

s#o 

y 

II 

0 0 1 9 3 F 3 C 

1 C 0 D 0 F 7 B " 


7 0 

PATTERN 

S#1 

y 

n 

OCOFOFOF 

0 7 0 3 1 B 0 7 " 


8 0 

PATTERN 

S#2 

y 

II 

00CCFE9E 

9CD878EC" 


9 0 

PATTERN 

S#3 

y 

II 

1 A F A F 8 F 0 

EC7C3800" 

1 

0 0 

Y1 =Y : GOSUB 

2 0 0 


1 

1 0 

PATTERN 

s#o 

y 

n 

0 0 1 9 3 F 3 C 

1 C 0 D 0 F 1 B " 

1 

2 0 

PATTERN 

s# 1 

y 

n 

2C2F0F07 

1 B 1 F 0 E 0 0 ' 

1 

3 0 

PATTERN 

S# 2 

y 

n 

00CCFE9E 

9CD878EF" 

1 

4 0 

PATTERN 

S#3 

y 

N 

1 8 F 8 F 8 F 8 

F0606C70" 

1 

5 0 

Y 1 = Y + 2 : 

GOSUB 


2 0 0 


1 

6 0 

NEXT Y 






1 

7 0 

M = M+ 2 : 1 

F M> 3 


THEN M= 1 


1 

8 0 

GOTO 20 






2 0 0 

SPRITE 

0,(1 

2 0 

, Y 1 ) , 0 , C 


2 1 0 

SPRITE 

0,(1 

2 0 

, Y 1 + 1 ) , 0 

, C 

2 2 0 

RETURN 
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fc ^ y 1*^ 


BASIC 3 t 3 tt 9 7 ^ ->, 7 >1) # 

<. < 3t;5lb/cffitg^»fc-&4 L/cO-t:\ 

0 t Lfcds V7 yi'Oy p 7"7 AcoSfil^^:cfc D, 
»'g-&t:)£fflL-cT^i.'o tSA'f-f*'. ^^6-f list ^HELty" 

^ ^’y LTTS'^'o 

BASIC gMoM^llife^'^^ScHilS^ix'Tfc Of -tot:', ##r i i gA' t "to 7-* 

fCioT, BASIC ^ ^<!:l^ CC-fo PEEK, POKEU^ 

1^ Cl'M't:'i)^ti^ L A^3 L T -C T $ 'z 'o 
BASIC €)yp^5 ^ <!:,eA'4-to 

tX Ji 


- 165 - 


MEMO 


MEMO 


MEMO 


MEMO 


SC-3000 BASIC 3 

^fT0f -b'^ 

y y-zu 3 V f ^ - y'**® 

T 144 M«?|5^BalK5gEB ITS 2 # 12 # 

® 03 - 742 - 3171 
PSft58^?i7i! 15 H^ff 
9WJ-M* ® 0 * a 0 a 
T 140 m«f|5n“pjllE:itB°pill 1 T S 29 Ull 
® 03 - 471 - 3353 
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